#!/usr/bin/perl

foreach my $topic ('food','politics','sports','tech') {
    my @files = split(' ',`ls $topic`);
    foreach my $file (@files) {
	my $wc = `wc -w ${topic}/${file}`;
	$wc =~ /(\d+)/;
	if($1 == 0) {
	    print "$topic/$file\n";
	    `rm $topic/$file`;
	}
    }
}
